﻿' Copyright 2010-present MongoDB Inc.
'*
'* Licensed under the Apache License, Version 2.0 (the "License");
'* you may not use this file except in compliance with the License.
'* You may obtain a copy of the License at
'*
'* http://www.apache.org/licenses/LICENSE-2.0
'*
'* Unless required by applicable law or agreed to in writing, software
'* distributed under the License is distributed on an "AS IS" BASIS,
'* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'* See the License for the specific language governing permissions and
'* limitations under the License.
'


Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports Xunit

Imports MongoDB.Bson
Imports MongoDB.Bson.Serialization.Attributes
Imports MongoDB.Driver
Imports MongoDB.Driver.Linq
Imports MongoDB.Driver.Tests

Namespace MongoDB.Driver.VB.Tests.Jira

    Public Class CSharp542

        Public Class Test
            Public Id As ObjectId

            Public MyNullableInt As Nullable(Of Integer)
        End Class

        <Fact>
        Public Sub TestNullableComparison()

            Dim server = LegacyTestConfiguration.Server
            Dim db = server.GetDatabase("test")
            Dim col = db.GetCollection(Of Test)("foos")

            Dim query = col.AsQueryable.Where(Function(p) p.MyNullableInt = 3)

            Dim list = query.ToList()

        End Sub
    End Class

End Namespace
